PL/M-~&0 COMPILER 


PSistit PE/M=so. Voet Cc 
OBJECT MODULE PLACED I 
COMPILER INVCKED BY: 


OMPILATION OF MODULE EDLLIB 
N :F1:E0LLIB.O8J 
PLM8O :F1:EDLLI8.SRC 


1 EDLLI3: DO} 
2 4 MIPSEN: PROCEDURE (SOC, MSG$3P, LEN) BYTE EXTERNAL; 
3. 2 DECLARE (SOC, MSG$P, LEN) ADDRESS; 
is 3 END MIPSENS 
5 4 MIPRCV: PROCEDURE (PORT) ADDRESS EXTERNALS 
b. we DECLARE PORT BYTE; 
2. END MIPRCVS 
8 4 DECLARE EDLS$SOCKET LITERALLY ‘QOQ1H’? 
9 4 DECLARE REQ STRUCTURE ¢ 
MIP(12) BYTE? 
PROC ADDRESS, 
CMO BYTEs 
RESULT BYTE, 
RESPSOC ADDRESS, 
DAT(4) ACDRESS)} 
10 4 DECLARE REGSDATS(2) BYTE AT CeREQ.DAT)? 
14.4 DECLARE MIP$STATUS 3YTE} 
42 1 TRANSACT: PROCEDURE (CMD); 
13 2 DECLARE CMD BYTES 
14. 2 REQ.CMD = CMC} 
15 2 REQ.PROC = 03 
16 2 REQ.RESPSOC = O304H; 
17. 2 MIPSSTATUS = MIPSEN CEDLSSOCKET,» «REC, 26)3 
18 2 IF MIPSSTATUS = 20H OR MIPSSTATUS = 82H 
THEN MIPSSTATUS = G3 
20 2 ELSE RETURNS 
21.2 DO WHILE MIPERCV (4) <> .REQS 
22-3. 3 END; 
3: 2 END TRANSACT; 
24 1 DECLARE POINTER LITERALLY °(€2) ADDRESS’; 
aS 4 DECLARE WORD LITERALLY “ACORESS’ 
26 1  ' DECLARE COMM$PORT LITERALLY ‘OAGH’3 
274 DECLARE COUTRQD, INRQD) BYTE EXTERNAL; 
28 ‘DECLARE PRES STRUCTURE 
CMB BYT=-, 
RESP BYTE, 
DIAG BYTE) AT (OF690H); 


2g 4 DECLARE 


LGC STRUCTURE ¢ 
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30. 


31 
32 
a5 
34 


mn = 


CMC BYTE-s 
RESP BYTEs 
FRCM POINTER, 
DEST PCINTERs 
LEN WCORD~, 
START WORD, 
DEVCNT BYTE, 
TOSCNT BYTE, 
THISDEV BYTE, 
RSRO BYTE, 
TOSBASE BYTE, 
IDSSIZé BYTE-s 
DEVIO BYTE, 
STATUS. SYTEs 
RQODtoCE POINTER, 
RQCfromC3 POINTER, 
INTTYPE RYTZ, 
WAITTIME S8YTE- 
INTADR WORD) AT COF690H),; 
DECLARE LGCSDATA STRUCTURE (¢ 
CMD. BYTE, 
RESP BYTE,s 
FROM POINTER, 
DEST POINTER, 
LEN WORD, 
START WORD, 
DEVCNT BYTE, 
IDSCNT BYTE, 
THISDEV aYTE,s 
RSROD BYTE, 
IOSBASE BYTE, 
IDSSIZE BYTE, 
DEVID BYTE, 
STATUS BYTEs . 
RQOtoC® POINTER, 
RQOCfromCB POINTER, 
INTTYPeE BYTE, 
WAITTTIME BYTE-> 
INTADR WORD) DATA ¢ 
2v Ov «zaNULLCODE,O-, 300CH-OFCOOH, 1, 300CH, 
17 17 Os Os 
Or, 14, 


3, OFFH, .CUTRGD-O0, .INRQD-O, Cy, OFFH, 2324H)> 


DECLARE 


CQSSTRT 
DECLA 
DECLA 


NULLCODE BYTE DATA COC3H)4 /* 2086 RETURN INSTRUCTION */ 


: PROCECURE CSTATUSSP) PUBLIC, ; 
RE STATUSSP ADDRESS, STATUS BASED STATUSSP ADDRESS, 
RE €I,vJ) ADCRESS-- 
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hp 


NM POP i FOr PO Pe PO 


Mm Pons WEE WP Pp 


PM Ph PP Pp 


NM PO 


PEPIN Mh PM hh 


/x RESET COMM BOARD x/- 


OUTPUT (COMMSPORT) = 1, 


DO I = 0 TO 650007 J=J+tI+ ENDZ /* TIME MUST BE 145 SECONDS OR 


/* ISSUZ PRESENCE COMMAND */ 


PRES.CMD = 1, 
PRES.RESP = CG, 


/x* INITIALIZE CONTROL BLOCK x/ 


OUTPUT (CCOMMSPORT) = 24 /* GENERATE INTERRUPT */ 


90 I = 0 TO 100, 
DO J = 0 To 65000; 
TF PRESARESP <> G THEN GOTO L1, 
ENO, 
END, 
STATUS = 1 /k NOT PRESENT */;7 
RETURN, 
ig ie 


/x* ISSUE LOAD AND GO COMMAND WITH JUST A RETURN x/ 


CALL MOVE (SIZECLGO), .LGOSDATA, «LGC), %/* INITIALIZE CONTROL BLOCK x/ 


OUTPUT CCOMMSPORT) = 2, 
DO I = 0 TO 100, | /* WATT FOR REPLY x/ 
DO J = G TO 65CCG; - 
IF LGG.RESP <> O THEN GOTO L2, 
END; 
END, 
STATUS = 1 /* NOT PRESENT x/; 
RETURN, 
lees 


STATUS = G+ /x WAIT A3Z0UT OTHER STATUSES? */ 
END CQS3STRT- 


CQSCONN: PROCECURE CTYPE, STATUSSP) PUALIC, 
DECLARE TYPE ADDRESS, 


DECLARE STATUSSP ADDRESS, STATUS BASED STATUSSP 


REQSCATB(O) = HIGH (TYP=), 
REQSCAT3C(1) = LOWCTYPE)D; 
CALL TRANSACT (1), 
IF MIPSSTATUS <> Q 
THEN STATUS = MIPSSTATUS, 
ELSE STATUS = REQ.RESULT, 
END CQSCONN, 


CQSDISC: PROCEDURE CTYPE, STATUSSP) PUBLIC, 
DECLARE TYP= ADDRESS, 


DECLARE STATUSSP ADDRESS, STATUS BASED STATUSSP 


REQSDATB(O) = HIGH CTYPE), 
REQSDATB(1) = LOW (TYPE); 
CALL TRANSACT (2), \ 
STATUS = MIPSSTATUS, 

END CQ30ISC; 


ADDRESS, 


ADDRESS, 


MORE */ 
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80 1 CQSAMIO: PROCEDURE CMCIDOSP, 
81 eC DECLARE MCIDSP ACDRESS,z 
82 ra DECLARE MCID 2ASED MCIDSP 
83 e DECLARE STATUSSP ADDRESS, 
34 2 REQ.CAT(O) = MCIC(O), 

85 2 REQeCATC(1) = MCICC1)- 

86 2 REQ~DAT(C2) = HCICC2);z 

37 a CALL TRANSACT (3), 

88 2 IF MIPSSTATUS <> 0 


ELSE STATUS 
END CQSAMID, 


bo) 
QO 
hm DP 


CQSOMID:s PROCEDURE CMCIDSP, 
DECLARE MCIDSP ADORESS, 
DECLARE MCID 3ASt0 MCID$P 
DECLARE STATUS3P ADDRESS, 
REQ.CATCQ) = MCIOCO); 
REQ.DAT(1) MCIOC1), 
REQ.DAT(2) MCIDC2), 
CALL TRANSACT (4); 

STATUS = MIPSSTATUS, 

END CQSCMIO, 


 @) 
“I 
NM PP mM POP mM Mm = 


DECLARE BUFSP ADCRESS, 


—_ 
Oo 
~ A 
NMm 


MIP(12) S8YTE, 

PROC ADDRESS, 

CMO BYTE, 

RESULT 8SYTE- 

RESPSOC ADDRESS, 

LEN ADSRESS); 
DECLARE STATUSSP ADDRESS, 
3UF.PROC = 0; 
3BUF.CMD = 57 
BUF.RESPSOC = O3C5H;3 


IF STATUS = 80H OR STATUS 
END CQ$XMIT-z 


NM OO ON OUI 
Mmmm Ww rw rm 


DECLARE STATUSSP ADDRESS, 
DECLARE BUFSP ADORESS-, 


MMM 4 


MIP(12) BYTE, 
PRCC ADDRESS, 
CMD BYTC, 
RESULT 2BYTE- 
RESPSOC ADDRESS, 
LEN ADCRESS),; 
BUFSP = MIPRCV (C5H), 
IF BLFSP <> Q THEN STATUS 


a wd 
Oo N 
ro Pp 


STATUS = MIPSEN CEDLESSOCKE 


STATUSSP) PUBLIC, 


(3) ADCRESS; 
STATUS BASED STATUSSP ADDRESS, 


THEN STATUS = MIPSSTATUS, 
= REQ.~RESULT,z 


STATUSEP) PUBLIC, 


(3) ADCRESS,z 
STATUS BASED STATUSSP ADDRESS; 


CQSXMIT: PROCECURE CBUFSP, STATUSSP) PUBLIC; 


DECLARE BUF BASEC BUFSP STRUCTURE (¢ 


STATUS BASED STATUSSP ADORESS,s 


Ty, BUFSP, BUF.LEN+26), 
= 82H THEN STATUS = QO, 


CQSCKTX: PRCCEOQURE CSTATUSSP) ADDRESS PUBLIC; 


STATUS BASED STATUSSP ADDRESS; 


DECLARE BUP -SASEG aUrSP STRUCTURE ¢ 


= BUF.RESULT, 
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i od oA ow Oo A Do ow 


nr 
WW PO Po PO PS PO 
NOMA N A vi 


med dk nd ed aed 
iu A Ut ON 
NO. U1 & Ui 


ad md > 
OW 
Oo oO 


141 
142 
143 
144 
145 
146 


—_ ad 
oo NI 


VIA Ua a to 
Soc N OF UT G1 =| © 06 


160 


Por ps ro po po po PE PO Pp 


NN 


MN PP PO Po MM 


NmMrnm hi = 


M POPP PO POP PO Pm PO 


RETURN BUFSP, 
END CQSCKTX, 


CQSSBUF: PROCEDURE (C3UFSP, STATUSSP) PUBLIC, 
DECLARE BUFSP ADCRESS, 
DECLARE BUF BASED BUFSP STRUCTURE (¢ 
MIP(12) BYTE, 
PROC ADDRESS, 
CMO BYTE, 
RESULT 38YTé, 
RESPSOC ADDRESS), 
CECLARE STATUSSP ADDRESS, STATUS BASED STATUSSP ADDRESS; 
BUF.PROC = QO, . 
BUF.CMD = 6, 
BUF.RESPSOC = O3C6H, 
STATUS = MIPSEN CEDLESOCKET, BUFEP, 1514420), 
IF STATUS = 80H OR STATUS = &2H THEN STATUS = Q, 


END CQSSBUF; 


CQSCKRX: PROCECURE CSTATUSEP) ACDRESS PUBLIC, 
DECLARE STATUSSP ADDRESS, STATUS BASED STATUSSP ADDRESS, 
STATUS = Q, 
RETURN MIPRCV (COQ6H); 

ZND CQECKRXz 


CQSREAD: PROCEDURE (OBJECT, RETSP, STATUSSP) PUBLIC, 
DECLARE C€CBJECT, RETEP) ADDRESS, 
DECLARE RET BASET RETSP (3) ADDRESS, 
DECLARE STATUSSP ADDRESS, STATUS BASED STATUSSP ADDRESS, 
REQ.DATCO) = OSJECT- 
CALL TRANSACT (3), 


STATUS = MIPSSTATUS,s 
RETCC) = REQ.~DAT(1)2 
RETC1) = REQ.CAT(C2); 
RETC2) = REQWDAT(CS); 


END CQSREAQD,z 


CQOSROCL: PROCEDURE COBJECT, RETSP, STATUSSP) PUBLIC, 
DECLARE (CBJECT, RETEP) ADDRESS; 
DECLARE RET BASED RETSP (35) ADDRESS, 
DECLARE STATUSSP ADDRESS, STATUS BASED STATUSSP ADDRESS; 
REQ~CATCO) = OBJECT, 
CALL TRANSACT (9), 


STATUS = MIPSSTATUS, 
RETCC) = REQ.CAT(C1),- 
RETC1) = REQ.~DAT(C2); | me 
RETC2) = REQ.DAT(S); 


END CQSRDCL; 


END EDLLIS, 
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MOOULE INFORMATION: 


CODE AREA SIZE 
VARIABLE AREA SIZE 
MAXIMUM STACK SIZE 
277 LINES READ 
O PROGRAM =RROR(S) 


O43FH 1087D 
004CH 76D 
OO0C6H 6D 


END CF PL/M~&Q COMPILATION 


